#!/usr/bin/perl

use warnings;
use strict;

open (SAMPLE, "sample.file");

foreach (<SAMPLE>) {
    if ( /(.*):.*:.*:(3{1,2})\/[0-9]{1,2}\/[0-9]{1,2}:.*/ ) {
        print $1, "\n";
    }
}

close SAMPLE;
